home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / QuickMail / Installer Resources / Scripts / CompuServe.FAX.Script.v1.0b2 < prev    next >
Text File  |  1992-03-20  |  3KB  |  187 lines
  1. * CompuServe FAX Script, for QuickMail™
  2. * © 1988-89 CE Software, Inc.
  3. *
  4. * Title: CompuServe.FAX.Script.v1.0b2
  5. * Version: 1.0b2
  6. * Modification Date: 4/11/89
  7. * 
  8. * Modification History:
  9. * • 1.0b1 - 4/13/89:
  10. *
  11. * NOTES:
  12. *
  13. * Address must be:  >FAX:xxx-xxx-xxxx
  14. *
  15. * This is a simple script for logging onto CompuServe.  It assumes that
  16. * you are calling directly into the CompuServe network.
  17. *
  18. * THIS SCRIPT ONLY WORKS IF YOU ARE CALLING DIRECTLY INTO A COMPUSERVE NODE.
  19. *
  20. * THIS SCRIPT CAN ONLY BE USED TO SEND FAXES VIA COMPUSERVE.
  21. *
  22. *
  23. * This is called to log us into CompuServe
  24. :IN
  25. OOPS 120,FAILURE
  26. ALERT 1,IN3,Host Name:
  27. PAUSE 2
  28. TYPE ^C
  29. :IN1
  30. WAIT User ID:
  31. TYPE «LOGID»/GO:EMAIL^M
  32. WAIT Password:
  33. TYPE «PASSWORD»^M
  34. ALERT 1,IN2,Enter choice !
  35. ALERT 2,IN2,or HELp!
  36. ALERT 3,IN4,<CR>!
  37. ALERT 4,IN5,(Y or N)
  38. WAIT EasyPlex!
  39. :IN2
  40. ALERT 1,,
  41. ALERT 2,,
  42. TYPE Set Mode Command^M
  43. WAIT !
  44. TYPE Set Editor NoLine^M
  45. WAIT !
  46. TYPE Set Page Off^M
  47. WAIT !
  48. SUCCESS
  49. :IN3
  50. TYPE CIS^M
  51. GOTO IN1
  52. :IN4
  53. TYPE ^M
  54. WAIT EasyPlex!
  55. GOTO IN2
  56. :IN5
  57. TYPE Y^M
  58. WAIT EasyPlex!
  59. GOTO IN2
  60. *
  61. * This logs us off CompuServe
  62. *
  63. :BYE
  64. TYPE Bye^M
  65. ALERT 1,SUCCESS,NO CARRIER
  66. ALERT 2,B2,(Y or N)!
  67. ALERT 3,BYE,Host Name:
  68. :B1
  69. PAUSE 10
  70. SUCCESS
  71. :B2
  72. TYPE Y^M
  73. GOTO B1
  74. *
  75. * These are called to send one binary file
  76. *
  77. :XSEND
  78. OOPS 60,FAILURE
  79. TYPE Upload/PROTO:XMODEM/TYPE:Binary^M
  80. WAIT completed.
  81. XMODEM Upload,FAILURE
  82. GOTO S1
  83. :XAGAIN
  84. OOPS 60,FAILURE
  85. TYPE SEND^M
  86. GOTO S1
  87. *
  88. * This is called to send one piece of mail
  89. *
  90. :SEND
  91. OOPS 60,FAILURE
  92. TYPE Compose^M
  93. WAIT Enter message.
  94. * TYPE Attn: «NAME»^M
  95. DUMP ^J
  96. TYPE /EX^M
  97. :S1
  98. WAIT (Name or User ID):
  99. TYPE «ADDRESS»^M
  100. ALERT 2,S5,%
  101. ALERT 3,S6,SEND!
  102. WAIT Subject:
  103. ALERT 2,,
  104. ALERT 3,,
  105. TYPE «TOPIC»^M
  106. ALERT 1,S3,Your name:
  107. :S2
  108. WAIT ATTENTION:
  109. TYPE «NAME»^M
  110. WAIT (Y or N)!
  111. TYPE Y^M
  112. ALERT 1,S4,Press <CR>!
  113. WAIT EasyPlex!
  114. SUCCESS
  115. :S3
  116. TYPE «FROM»^M
  117. GOTO S2
  118. :S4
  119. TYPE ^M
  120. WAIT EasyPlex!
  121. SUCCESS
  122. :S5
  123. ALERT 2,,
  124. ALERT 3,,
  125. WAIT to omit:
  126. TYPE ^M
  127. WAIT SEND!
  128. :S6
  129. ERRORINADDRESS
  130. ALERT 2,,
  131. ALERT 3,,
  132. TYPE ^M
  133. WAIT EasyPlex!
  134. SUCCESS
  135. *
  136. * This is called to resend the last message to someone else.  If there is
  137. * no label called "Again" in a script, it just calls Send for every file
  138. *
  139. :AGAIN
  140. OOPS 60,FAILURE
  141. TYPE EDIT^M
  142. WAIT [ Ready ]
  143. TYPE /T^M
  144. WAIT [ Top of file ]
  145. TYPE /N^M
  146. WAIT Attn:
  147. TYPE /R/Attn: «NAME»^M
  148. WAIT Attn:
  149. TYPE /EX^M
  150. WAIT SEND!
  151. TYPE SEND^M
  152. GOTO S1
  153. *
  154. * This is called to receive mail.  It is called continually with increasing
  155. * values in «COUNT», until FAILURE occurs.  You can put all reads into one
  156. * listing, if you wish
  157. *
  158. :RECEIVE
  159. OOPS 60,FAILURE
  160. TYPE Read all^M
  161. :R1
  162. ALERT 1,R10,EasyPlex!
  163. ALERT 2,R2,% Message is Binary
  164. BUFFER Action!
  165. RECEIVE Subj:,Attn:,From:,[,]
  166. TYPE Delete^M
  167. WAIT Delete
  168. GOTO R1
  169. :R2
  170. WAIT Action!
  171. TYPE Dow/Proto:XModem^M
  172. WAIT XMODEM transfer
  173. XMODEM Download,R3
  174. MAILFILE Subj:,Attn:,From:,[,]
  175. WAIT Action!
  176. TYPE Delete^M
  177. WAIT Delete
  178. GOTO R1
  179. :R3
  180. TYPE NOCOMMAND^M
  181. WAIT Action!
  182. TYPE Save^M
  183. WAIT Save
  184. GOTO R1
  185. :R10
  186. FAILURE
  187.